home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
The World of Computer Software.iso
/
ra-scrs.zip
/
RA-MAIL.RS
< prev
next >
Wrap
Text File
|
1992-10-20
|
2KB
|
61 lines
TITLE "Script to d/l mail from The Programmers Workshop"
ENDPARAMS
CLEAR
WHEN "ENTER TO CO" SEND "|"
WHEN "[ENTER] TO CO" SEND "|"
WHEN "Y/N" SEND "N|"
WHEN "CHECK FOR" SEND "N|"
WHEN "PRESS ENTER" SEND "|"
WHEN "<PRESS ANY KEY>" SEND "|"
WAITFOR "Main Menu Select"
;Request Offline menu
SEND "O|"
;select menu
MESSAGE "Entering MkQwk Mail Door"
WAITFOR "SELECT:"
SEND "M|"
WAITFOR "(Q)uit to Bbs"
MESSAGE "Now in MkQwk Mail Door"
IF NOT EXIST "%REPDIR%%ID%.REP" GOTO DOWNLOAD_BW
;upload REP packet
MESSAGE "Uploading %ID%.REP Packet"
SEND "U|"
UPLOAD "%REPDIR%%ID%.REP"
MESSAGE "REP Upload completed ok.."
SEND "|"
;rename old packet
RENUMBER "%REPDIR%%ID%.REP" 3
MESSAGE "Renumbering %ID%.REP"
;download packet
:DOWNLOAD_BW
TIMEOUT 1200
CLEAR
WAITFOR "(Q)UIT TO BBS" FAILURE GOTO ERROR
DELAY 3
MESSAGE "Requesting QWK packet"
SEND "D|"
IF EXIST "%QWKDIR%%ID%.QWK" RENUMBER "%QWKDIR%%ID%.QWK" 5
WHEN "Goodbye After" SEND "|"
WHEN "Want This Packet" SEND "|"
WAITFOR "BEGIN ZMODEM" FAILURE GOTO ERROR
DOWNLOAD "%QWKDIR%" USING "RCDMAIL"
SEND "|"
MESSAGE "Navigating to Main Menu"
WAITFOR "(Q)UIT TO BBS" FAILURE GOTO ERROR
SEND "Q|"
WAITFOR "SELECT:" FAILURE GOTO ERROR
SEND "Q|"
WAITFOR "MAIN MENU SELECT" FAILURE GOTO ERROR
EXIT 0
:ERROR
MESSAGE "!!!SOMETHING WENT WRONG!!!"
HANGUP
EXIT 1